<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>46</cardCount>
<cardID>5322</cardID>
<listID>18854</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on resumeif wrongStack() then pass resumecHCinstallpass resumeend resumeon suspendif wrongStack() then pass suspendcHCdisposepass suspendend suspendon openStackglobal isitjj, gOKToColorizeif wrongStack() then pass openStack -- in case stackInUseif MaxDepth() < 4 thenanswer "This machine either does not support color, or the bit-depth is set too low. This stack will run in black and white mode."put nodepth into gOKToColorizeelsecHCinstallend ifshow menubarset userlevel to 3put false into isitjjsetcolorscreateTheMenupass openStackend openStackon closeStackif wrongStack() then pass closeStack -- in case stackInUseglobal StackMenu, isitjjunlock screengo lastlock screenput "Hasta La Vista,Be back,ta-ta for now,game over,OZ_GoingSoSoon" into byesoundsplay item ((the ticks mod 5)+1) of byesoundsunlock screencHCdisposedeleteStackMenuput empty into isitjjput empty into StackMenu -- clean-up for exitpass closeStackend closeStackon resumeStackif wrongStack() then pass resumeStack -- in case stackInUsecHCinstallcreateTheMenuif id of this bkgnd <> 3664then changeMenuItemStatus disable,"sort,misc"pass resumeStackend resumeStackon suspendStackif wrongStack() then pass suspendStack -- in case stackInUsedeleteStackMenucHCdisposepass suspendStackend suspendStackfunction wrongStackreturn (line 1 of the stacks is not in long name of me)end wrongStack----- Menu Scripts ----------------------------------------------on createTheMenuglobal StackMenuput "Groups" into StackMenu -- ∆-- remove any existing menus that might have the same nameif there is a menu StackMenu then delete menu StackMenucreate menu StackMenuput menuItemData() into menu StackMenu with menuMsg menuMsgData()juanend createTheMenuon juanglobal isitjjif (isitjj = true) thenif there is a menu "John" then delete menu "John"create menu "John"put "Update Resource,-,Show/Hide real table,Make Table,Fill Table,Kill Table,Set up Subgroup Machine"¬into menu "John" with menuMsg "getres" & return & empty & return & "showrealtable" ¬& return & "maketable" & return & "filltable" & return & "killtable" & return & "dosetup"end ifend juanfunction menuItemDatareturn groupMenu()-- & ",-," & miscMenuItemData() & ",-," & ¬-- navMenuItemData()end menuItemDatafunction groupMenureturn (field groupmenuitems of card "covercard")end groupMenufunction menuMsgDatareturn "go0" & return & empty & return & "goZ2" & return & empty &¬return & "goZ3" & return & empty & return & "goV4" &¬return & "goZ4" & return & empty & return & "goZ5" & return & empty &¬return & "goS3" & return & "goZ6" & return & empty &¬return & "goZ7" & return & empty & return & "goD4" & return & "goQ8" &¬return & "goZ8" & return & "goZ2Z2Z2" & return & empty &¬return & "goZ9" & return & "goZ3Z3" & return & empty & return & "goZ10" & return &"goD5" &¬return & empty & return & "goA4" & return & "goT12" & return & "goD6" & return &¬empty & return & "quit"end menuMsgData----- Navigational Scripts ----------------------------------------------on go0go card "0"end go0on goZ2go card "Z_2"end goZ2on goZ3go card "Z_3"end goZ3on goZ4go card "Z_4"end goZ4on goV4go card "V_4"end goV4on goZ5go card "Z_5"end goZ5on goS3go card "S_3"end goS3on goZ6go card "Z_6"end goZ6on goZ7go card "Z_7"end goZ7on goZ8go card "Z_8"end goZ8on goZ2Z2Z2go card "Z2Z2Z2"end goZ2Z2Z2on goQ8go card "Q_8"end goQ8on goD4go card "D_4"end goD4on goZ3Z3go card "Z3Z3"end goZ3Z3on goZ9go card "Z_9"end goZ9on goZ10go card "Z_10"end goZ10on goD5go card "D_5"end goD5on goD6go card "D_6"end goD6on goA4go card "A_4"end goA4on goT12go card "T12"end goT12on quitgo lastunlock screenunlock screendoMenu "Quit Hypercard"end quiton jjglobal isitjjput true into isitjjpush cardgo firstcreatethemenupop cardpass jjend jjon getresgetresources "Bugster:Groups:group resource"end getreson deleteStackMenuglobal StackMenuif StackMenu is in the menus then delete menu StackMenuif "John" is in the menus then delete menu "John"end deleteStackMenuon returnToAddressCardpop card into returnCardif the long name of this stack is in returnCardthen go returnCardelse goAddressesend returnToAddressCardon dosubglobal grouptablelock screengo nextunlock screen with dissolve very fastend dosubon backtotableglobal grouptablelock screenhide card field "coverup"hide card field "from"hide card field "to"put line 1 of grouptable into nrepeat with i=1 to nhide card field (n*n + 2*n + 5+i)end repeathide card button "Back to the Group Table"unlock screen with dissolveend backtotable------------------- Colorizeing routineson cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory TheDepth,PartitionSize-- The PartitionSize required may vary depending on your stackput lastItem(":",the long name of HyperCard) into TheHyperCardanswer "Not enough memory to run" && "“" & short name of this stack & "”" ¬&& "in" && TheDepth & "bit mode. The current memory size of" && ¬TheHyperCard && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem TheDelimiter,String-- given the delimiter <TheDelimiter>, return the portion of <String> that-- follows the LAST occurance of <TheDelimiter>if TheDelimiter is in Stringthen put lastItem(TheDelimiter,char offset(TheDelimiter,String) + 1 to length(String) of String) into Stringreturn Stringend lastItemon errBitDepthanswer "This stack requires a color system set to at least 16 colors" && ¬"(4 bit-depth) to display color." --∆end errBitDepthon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCfunction stackActivateglobal gOKToColorize--put empty into gOKToColorize--colorizeHC "assignToFront"if the result is not empty thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment this stack is currently running in is not" && ¬"able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdispose-- closing the stack, get rid of the Colorize stufflock screenColorizeHC "Dispose"if the result is not empty then answer the resultunlock screen -- force a screen updateend cHCdisposeon setcolorsglobal RGBs, PATsput "2,37,4,5,38,6,7,40,8,9,10,11,14,15,16,17,18,19,20,21,22" into PATsput "51111,51111,51111 65535,0,0 0,0,65535 0,65535,0 57774,20862,45420 65535,45785,7805 50445,35243,6008 24269,51469,65535 65535,42290,50620 65535,65535,0 0,57343,57343 0,31043,0 53343,48191,28483 25208,34061,11793" into RGBsend setcolorson showelemsglobal grouptablelock screenput line 1 of grouptable into totput (1+tot)*(1+tot) into totrepeat with i=2 to totshow cd fld iset cursor to busyend repeatchoose browse toolend showelemson hidelemsglobal grouptablelock screenput line 1 of grouptable into totput (1+tot)*(1+tot) into totrepeat with i=2 to tothide cd fld iset cursor to busyend repeatchoose browse toolend hidelems</script>
